home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / myoh.dir / 00047_clickEffectsOnceWalletSpecial.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  446 b   |  33 lines
  1. property meSprite, xDone
  2.  
  3. on beginSprite me
  4.   meSprite = sprite(me.spriteNum)
  5.   meSprite.static = 1
  6.   xDone = 0
  7. end
  8.  
  9. on mouseEnter me
  10.   cursor([500, 501])
  11.   if xDone = 0 then
  12.     xDone = 1
  13.     if meSprite.playing = 0 then
  14.       meSprite.static = 0
  15.       meSprite.play()
  16.     end if
  17.   end if
  18. end
  19.  
  20. on setStatic me
  21.   if meSprite.playing = 0 then
  22.     meSprite.static = 1
  23.   end if
  24. end
  25.  
  26. on mouseLeave me
  27.   cursor(0)
  28. end
  29.  
  30. on endSprite me
  31.   cursor(0)
  32. end
  33.